perm filename SEEDAT.OSA[1,ALS] blob sn#001118 filedate 1972-07-27 generic text, type T, neo UTF8
00010	BEGIN "SEEDAT"
00020	DEFINE ⊂="COMMENT"; ⊂ 6/28/72 To see processed data;
00030	
00040	require "comsub.hdr[sys,als]" source_file;
00050	EXTERNAL PROCEDURE SPOOL(STRING S; INTEGER IOCHAN,FLAGS);
00060	
00070	INTEGER ARRAY INDATA[0:640];
00080	INTEGER ARRAY LFILE[0:128];
00090	INTEGER ARRAY INNAM[0:23];
00100	INTEGER I,J,K,L,M,P,BPT;
00110	INTEGER CHAN1,CHAN2,CHAN3,EOF;
00120	STRING TFILE,TFILET,FILET;
00130	INTEGER INTOT,SEGTOT;
00140	
00150	CHAN1←1; CHAN2←2; CHAN3←3;
00160	CLOSE(CHAN1); OPEN(CHAN1,"DSK",'10,10,0,0,0,EOF);
00170	LOOKUP(CHAN1,"TABLES.DAT",0);
00180	ARRYIN(CHAN1,INNAM[0],24);	⊂ To get over to innam;
00190	ARRYIN(CHAN1,INNAM[0],24);
00200	ARRYIN(CHAN1,INNAM[0],24);
00210	ARRYIN(CHAN1,INNAM[0],24);	⊂ Now this is it;
00220	CLOSE(CHAN1);
00230	TFILET←"INSERT.L0";
00240	IF (TFILE←STRIN("Data file("&TFILET&") = "))="" THEN TFILE←TFILET;
00250	CLOSE(CHAN2); OPEN(CHAN2,"DSK",'10,10,0,0,0,EOF);
00260	LOOKUP(CHAN2,TFILE,0);
00270	ARRYIN(CHAN2,LFILE[0],'200);
00280	ARRYIN(CHAN2,INDATA[0],640);
00282	 TFILET←""; FILET←TFILE;
00283	 FOR I←0 STEP 1 UNTIL 9 DO BEGIN
00284	  TFILET←TFILET&FILET[1 TO 1];
00285	  IF FILET[1 TO 1]="." THEN DONE;
00286	  FILET←FILET[2 TO 9]; END;
00287	 TFILET←TFILET&"DOC";
00288	
00290	CLOSE(CHAN2);
00300	OPEN(CHAN3,"DSK",0,2,'10,0,0,EOF);
00310	ENTER(CHAN3,TFILET,0);
00320	OUT(CHAN3,DATIME&"        Data in input file "&TFILE&CRLF&LF&"SEGC    ");
00330	FOR P←0 STEP 1 UNTIL 23 DO IF INNAM[P]=0 THEN BEGIN
00340	   INTOT←P-1; P←24; END  ELSE
00350	  OUT(CHAN3,CVXSTR(INNAM[P])[1 TO 4]);
00360	OUT(CHAN3,CRLF&LF);
00370	SEGTOT←(LFILE[0]*6)%256;
00380	OUTSTR("INTOT= "&CVS(INTOT)&"  SEGTOT= "&CVS(SEGTOT)&CRLF);
00390	BPT←POINT(6,INDATA[0],-1);
00400	SETFORMAT(4,0);
00410	FOR I←1 STEP 1 UNTIL SEGTOT DO BEGIN
00415	  OUT(CHAN3,CVS(I)&"  ");
00420	  FOR P←0 STEP 1 UNTIL INTOT DO BEGIN
00430	    J←ILDB(BPT);
00440	    OUT(CHAN3,CVS(J));
00450	  END;
00460	  FOR P←INTOT+1 STEP 1 UNTIL 23 DO J←ILDB(BPT);
00470	  OUT(CHAN3,CRLF);
00480	END;
00490	CLOSE(CHAN3);
00500	SPOOL(TFILET,GETCHAN,1);
00510	OUTSTR("Output sent to spooler as "&TFILET&CRLF);
00520	END "SEEDAT";
00530